module Mod_MARdyn_grid

use Mod_Real
use Mod_MARdim

	implicit none


      integer                      ::   time_step  ,i_time_step,printstep

      real(kind=real8)             ::   time       ,time_ADVh_u,time_ADVh_v,time_ADVhPT
      real(kind=real8)             ::               time_ADVv_u,time_ADVv_v,time_ADVvPT
      real(kind=real8)             ::   time_P_star,time_PGF__u,time_PGF__v,time_PGF_PT

      real(kind=real8), dimension(0:mxx)     ::   xm                    ! x-coordinate   [m]
      real(kind=real8), dimension(0:myy)     ::          ym             ! y-coordinate   [m]
      real(kind=real8)           ::   dx    ,dx_inv,dx2inv,dxxinv,fac_43

      integer                      :: im10,ip10,im20,ip20,iC
      integer,dimension(0:mxx)     :: i_1 ,im1 ,ip1 ,iq1 ,i_2 ,im2 ,ip2 ,iq2 ,ig

      integer                      :: jm10,jp10,jm20,jp20,jC
      integer,dimension(0:myy)     :: j_1 ,jm1 ,jp1 ,jq1 ,j_2 ,jm2 ,jp2 ,jq2 ,ji

      real(kind=real8), dimension(0:mzz)     ::    sigma
      real(kind=real8), dimension(0:mz)      ::   dsigma
      real(kind=real8), dimension(mz)        ::   dsigm1
      real(kind=real8), dimension(mzz)       ::   sigmid

      integer                      :: km10,kp10,km20
      integer,dimension(mz)        :: km1 ,kp1 ,km2

end
